home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 December / macformat-044.iso / Demos / The Ghost Cave / BB / FOREST.Dxr / 00001.ls next >
Encoding:
Text File  |  1996-05-08  |  554 b   |  31 lines

  1. on startMovie
  2.   global counter
  3.   set counter to 4 * 12
  4.   set the mouseUpScript to "escaper"
  5.   if the soundLevel = 0 then
  6.     set the soundLevel to 1
  7.   end if
  8.   set the cpuHogTicks to the maxinteger
  9.   set the preLoadEventAbort to 1
  10.   preLoadCast(1, 67)
  11. end
  12.  
  13. on stopMovie
  14.   set the keyDownScript to EMPTY
  15.   set the mouseUpScript to EMPTY
  16. end
  17.  
  18. on wait tics
  19.   set nexttime to the timer + tics
  20.   repeat while the timer < nexttime
  21.   end repeat
  22. end
  23.  
  24. on escaper
  25.   puppetPalette("Black")
  26.   puppetSound(0)
  27.   updateStage()
  28.   puppetPalette(0)
  29.   go(1, "PRELUDE")
  30. end
  31.